﻿Imports BUS
Imports DTO

Public Class MH_DangNhap


    Private _nguoidungDTO As NguoiDungDTO
    Public Property NguoiDungDTO() As NguoiDungDTO
        Get
            Return _nguoidungDTO
        End Get
        Set(ByVal value As NguoiDungDTO)
            _nguoidungDTO = value
        End Set
    End Property



    Private Sub btnDangNhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDangNhap.Click

        If txtTenDangNhap.Text.Trim() = "" Or txtMatKhau.Text.Trim() = "" Then
            MessageBox.Show("Xin nhập đầy đủ thông tin để đăng nhập.")
        Else

            Dim ndDTO As New NguoiDungDTO
            ndDTO.TenDangNhap = txtTenDangNhap.Text.Trim()
            ndDTO.MatKhau = txtMatKhau.Text.Trim()
            Dim ndBUS As New NguoiDungBUS
            Dim i As Integer = ndBUS.DangNhap(ndDTO)

            If (i = 1) Then
                'Enable các menu dựa vào cái thuộc tính của loại người dùng
                MH_Main.rbtabDanhSach.Enabled = ndDTO.DanhSach
                MH_Main.rbtabPhatSinh.Enabled = ndDTO.PhatSinh
                MH_Main.rbtabBaoBieu.Enabled = ndDTO.BaoBieu
                MH_Main.rbtabTraCuu.Enabled = ndDTO.TraCuu
                MH_Main.rbtabBangDiem.Enabled = ndDTO.BangDiem
                MH_Main.rbtabQuanTri.Enabled = ndDTO.QuanTri

                MH_Main.btnDoiMK.Enabled = True
                MH_Main.btnDoiHinhNen.Enabled = True
                MH_Main.btnDangXuat.Enabled = True

                _nguoidungDTO = ndDTO
                MessageBox.Show("Đăng nhập thành công !!!")
                MH_Main.btnDangNhap.Enabled = False
                Me.Close()
            Else
                MessageBox.Show("Đăng nhập thất bại.")
            End If
        End If
    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub
End Class